home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 21
/
021.d81
/
phrase that pays
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
151 lines
0 rem********************************** **** ****
1 rem wheel of fortune **** **** by djb shibley ****
2 rem **** **************************************
10 poke650,128:poke788,52:printchr$(142)chr$(8);:gosub5000:goto100
15 print"";:forj=1to5:print""sp$" ":next:return
20 print"";:forj=1ton:print""n$(j)" "m(j)"[157] ":next:return
25 print"[150]"spc(17)ca$(ca)"":printspc(20-(len(q$)/2))q$""
27 ifu$<>""thenprint"[152]used : "u$
29 return
35 u=54272::pokeu+1,20:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
36 fork=1to10:next:pokeu+4,16:return
40 u=54272::pokeu+1,220:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
41 fork=1to10:next:pokeu+4,16:return
45 u=54272::pokeu+1,5:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
46 fork=1to10:next:pokeu+4,16:return
50 u=54272::pokeu+1,50:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
51 fork=1to10:next:pokeu+4,16:return
100 poke53280,13:poke53281,14:print"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
105 forj=.to22:print"[166][166]";:next
110 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157][148][166]"
115 print"[153]phrase that pays[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
116 print"[155]by[144] shibley"
120 print" loading vocabulary[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub35
125 open2,8,2,"0:nmgmlst,s,r":input#2,t:ifst=.then135
130 close2:print"[144] check disk [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:goto125
135 forj=1tot:input#2,w$(j):next:close2
140 gosub35:print"[144] load complete "
145 z$="press number of players (1-4)":print"";:gosub1000
150 n=val(x$):ifn<1orn>4thenprint"[145][145]":goto145
155 gosub35:print"[144] number of players is [157]"n"[157] ":fori=1ton:gosub35
160 print"name of player"i" ";:z=9:gosub1050:ifx$=""then600
165 n$(i)=z$:ifz$=""thenn$(i)="player"+str$(i)
168 iflen(n$(i))<9thenn$(i)=n$(i)+" ":goto168
170 print:print"[145][145][144] [157]"i"[157] - "n$(i)" ":nexti:h=1
200 forj=1ton:m(j)=.:next:gosub1100:gosub20
205 w=int(rnd(.)*t+1):ifw>t orw=<1then205
210 a$=right$(w$(w),len(w$(w))-1):ca=val(left$(w$(w),1)):q$="":forj=1tolen(a$)
215 x$=mid$(a$,j,1):ifx$>"@"andx$<"["thenq$=q$+"-":goto225
220 q$=q$+x$
225 next:us$="":wi$="no one "
250 printbc$"[144]":z$=n$(h)+" - spin wheel":printb$" ";:poke198,.:gosub1000
260 ifx$=""then545
270 printbc$:gosub1200:forj=1to999:next:ifm$<>"-turn"then285
275 gosub45:forj=1to25:printb$" [144]"n$(h)" you lose a turn"
280 fork=1to75:next:printbc$:fork=1to50:next:next:z=.:goto450
285 ifm$<>"- $$$"then300
290 gosub45:forj=1to25:printb$" [144]"n$(h)" you lose your money"
295 fork=1to75:next:printbc$:fork=1to50:next:next:m(h)=0:z=.:goto450
300 forj=1to999:next:gosub15:print""spc(15)"[144]solve puzzle[154]"
305 printspc(20)"or[144]":printspc(15)"guess letter"
310 z$=n$(h)+" choose s or g":gosub35
311 printb$" [151]";:poke198,.:gosub1000
330 ifx$<>""andx$<>"s"andx$<>"g"then311
335 gosub15:printbc$:ifx$=""then545
340 gosub25:ifx$="g"then365
345 gosub1350:ifq$<>a$thenz=.:goto460
355 tm(h)=tm(h)+m(h):wi$=n$(h):goto525
365 printb$"[144] "n$(h)"[151] choose a letter":y=99:poke198,.
369 ify<1thenz=.:goto460
370 print"[152]"y"[157] ":x=.:pokeu+1,19:pokeu+5,24:pokeu+6,8:pokeu+24,6
371 pokeu+4,17:forj=5to1step-1:pokeu+24,j:fork=1to55:next:next:pokeu+4,16
375 forj=1to40:getx$:ifx$>"@"andx$<"["thenj=40:x=1
380 next:y=y-1:ifx=.then369
390 if(x$="a"orx$="e"orx$="i"orx$="o"orx$="u")andm(h)<300theny=y-5:goto369
395 x=.:forj=1tolen(u$):ifx$=mid$(u$,j,1)thenx=1
400 next:ifx=1theny=y-10:goto369
405 u$=u$+x$
410 ifx$="a"orx$="e"orx$="i"orx$="o"orx$="u"thenm(h)=m(h)-300:m$=" 0"
420 z=.:forj=1tolen(a$):ifx$<>mid$(a$,j,1)then435
425 q$=left$(q$,j-1)+x$+right$(q$,len(q$)-j):m(h)=m(h)+val(m$):z=1
430 gosub40:gosub25:fork=1to900:next
435 next:printbc$
450 gosub20:ifq$=a$thenwi$=n$(h):tm(h)=tm(h)+m(h):goto525
455 ifz=1thenfork=1to3000:next
460 ifz=.thengosub45:h=h+1:ifh>nthenh=1
465 x=.:forj=1tolen(q$):x$=mid$(a$,j,1):ifmid$(q$,j,1)=x$then475
470 ifx$<>"a"andx$<>"e"andx$<>"i"andx$<>"o"andx$<>"u"thenx=1:j=len(q$)
475 next:ifx=1thengosub15:goto250
500 print" all vowels left":z=len(q$):forj=1to30:gosub50:next
505 fori=1ton:gosub1350:ifq$=a$theni=n:goto520
510 h=h+1:ifh>nthenh=1
520 nexti:ifq$=a$thentm(h)=tm(h)+m(h):wi$=n$(h)
525 q$=a$:u$="":gosub15:gosub25
530 print""wi$"[156] wins this round"
535 print"[223][146]game totals[169]"
540 forj=1ton:m(j)=tm(j):next:gosub20
545 z$="another round (press y or n)":printb$" ";:gosub1000
550 ifx$<>""andx$<>"y"andx$<>"n"then545
555 ifx$="y"then200
600 poke53280,3:gosub15:forj=1ton:m(j)=tm(j):next:gosub20:fordl=1to2000:next
601 print"[147]"bc$b$" phrase that pays [154]by shibley"
602 poke53280,3:printspc(14)"[156]game ended[158][157][157][157][157][157][157][157][157][157][157][157][197][197][197][197][197][197][197][197][197][197][197][152]"
605 poke788,49:poke650,.:load"hello connect",8:end
1000 printz$left$(l$,len(z$));:forj=1to35:getx$:ifx$=""thennext:goto1010
1005 j=35:next:return
1010 printleft$(sp$,len(z$))left$(l$,len(z$));:
1011 forj=1to35:getx$:ifx$=""thennext:goto1000
1015 j=35:next:return
1050 z$="":poke198,.
1055 print"[209][157]";:forj=1to40:getx$:ifx$=""thennext:goto1065
1060 j=40:next:goto1070
1065 print" [157]";:forj=1to30:getx$:ifx$=""thennext:goto1055
1066 j=30:next
1070 ifx$=chr$(13)thenreturn
1071 ifx$=""then545
1075 ifx$="[157]"orx$=chr$(20)andlen(z$)<1then1055
1080 ifx$="[157]"orx$=chr$(20)thenz$=left$(z$,len(z$)-1):print"[157] [157][157]";:goto1055
1085 ifx$=","orx$=chr$(34)orx$=";"orx$=":"orx$<" "orx$>"_"orlen(z$)=zthen1055
1090 printx$;:z$=z$+x$:goto1055
1100 poke53280,4:poke53281,15:print"[147]"spc(12)"shibley software"
1105 print"[169] [223]";
1110 forj=1to5:print" "spc(36)" ";:next
1115 forj=1to15:print" ";:next
1120 print"[146][144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":print"[221]"spc(36)"[221]"
1125 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":return
1200 gosub15:print""spc(23)"_[192][192]":forj=631to640:pokej,32:next:u=54272
1205 x1$=" ":x2$=" ":x3$=" ":x4$=" ":x5$=" "
1209 x=.:y=.:forj=1to15
1210 x$=a$(rnd(.)*30+1):x1$=x2$:x2$=x3$:x3$=x4$:x4$=x5$:x5$=x$
1217 pokeu+1,21:pokeu+5,2:pokeu+6,4:pokeu+24,6:pokeu+4,17:pokeu+24,5
1218 pokeu+24,4:pokeu+24,3:pokeu+24,2:pokeu+24,1:pokeu+4,16
1220 print""spc(17)x1$"[157][157][157][157][157]"x2$"[157][157][157][157][157]"x3$"[157][157][157][157][157]"x4$"[157][157][157][157][157]"x5$
1235 ifx=.thenj=1:getx$:ifx$=""thenx=1
1240 ifx=1thenfork=1toj*36:next
1244 ifx=1thenif(j=14andrnd(.)>.5)or(j=13andrnd(.)>.8)thenj=15
1245 next:forj=1to250:next:m$=x3$:print""spc(17)"[144]"m$:return
1350 printb$" [144]"n$(h)"[151] return your guess":print""sp$
1355 print""spc(20-(len(q$)/2));
1360 z=len(a$):gosub1050:ifx$=""then600
1361 ifz$=a$thenq$=z$:gosub40
1362 ifz$<>a$thengosub45
1365 printbc$:print""sp$:return
5000 dimw$(600),a$(30):ca$(1)="person":ca$(2)="place ":u=54272
5005 ca$(3)="thing ":ca$(4)="phrase"
5010 l$="[157][157][157][157][157][157][157][157][157][15